home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor1 / envgde10.lha / envGDE10 / makeguide / arexx / wizard.ged < prev   
Text File  |  1996-12-07  |  3KB  |  129 lines
  1. /* $VER: 1.1, ©1996 Dietmar Eilert. Create empty guide */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9.  
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14.  
  15. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19. 'QUERY USER VAR=AUTHOR'
  20.  
  21. if (AUTHOR = "") then do
  22.  
  23.     'QUERY ADDRESS_NAME VAR=ADDRESS_NAME'
  24.  
  25.     if (ADDRESS_NAME ~= "0") then
  26.  
  27.         AUTHOR = ADDRESS_NAME
  28. end
  29.  
  30. 'REQUEST STRING TITLE="Create new guide" BODY="Enter project name:" VAR=PROJECT'
  31.  
  32. if (RC = 0) then do
  33.  
  34.     if (PROJECT = "") then
  35.         PROJECT = "Unnamed"
  36.  
  37.     'REQUEST STRING TITLE="Create new guide" BODY="Author" VAR=AUTHOR OLD="' || AUTHOR ||'"'
  38.  
  39.     if (RC = 0) then do
  40.  
  41.         'REQUEST TITLE="Create new guide" BODY="Create index page ?" VAR=INDEX BUTTON="!INDEX|No index|_Cancel"'
  42.  
  43.         if ((RC = 0) & (INDEX ~= 0)) then do
  44.  
  45.             'QUERY VER  VAR=VERSION'
  46.             'QUERY DATE VAR=DATE'
  47.  
  48.             'FIX VAR=PROJECT'
  49.             'FIX VAR=AUTHOR'
  50.             'FIX VAR=VERSION'
  51.             'FIX VAR=DATE'
  52.  
  53.             'SUFFIX SUFFIX="" STRING="' || PROJECT || '"'
  54.  
  55.             BASENAME = RESULT
  56.  
  57.             'SUFFIX SUFFIX=".guide" STRING="' || PROJECT || '"'
  58.  
  59.             PROJECT = RESULT
  60.  
  61.             'QUERY ANYTEXT'
  62.  
  63.             if (RESULT = "TRUE") then
  64.  
  65.                 'MORE NAME="' || PROJECT || '"'
  66.  
  67.             else do
  68.  
  69.                 'SET FILE="'  || PROJECT || '"'
  70.  
  71.                 'NEW FORCE'
  72.             end
  73.  
  74.             'TEXT CR T="@database *"' || PROJECT || '*""'
  75.  
  76.             if (AUTHOR ~= "") then
  77.                 'TEXT CR T="@author *"'   || AUTHOR  || '*""'
  78.  
  79.             'TEXT CR T="@remark *"$VER: ' || BASENAME || ' Guide 1.0 (' || strip(DATE) || ')*""'
  80.  
  81.             'TEXT CR T="@remark *"Created with ' || substr(VERSION, 7) || '*""'
  82.  
  83.             if (INDEX = 1) then
  84.                 'TEXT CR T="@index INDEX"'
  85.  
  86.             'CR'
  87.             'TEXT CR T="@node MAIN *"Welcome*""'
  88.             'CR'
  89.  
  90.             'PING SLOT=0'
  91.  
  92.             'TEXT STAY T="MAIN"'
  93.             'SMARTCR'
  94.             'CR'
  95.             'TEXT T="@endnode"'
  96.  
  97.             if (INDEX = 1) then do
  98.  
  99.                 'CR'
  100.                 'TEXT CR T="@node INDEX *"Index*""'
  101.                 'CR'
  102.                 'TEXT STAY CR T="INDEX"'
  103.                 'SMARTCR'
  104.                 'CR'
  105.                 'TEXT T="@endnode"'
  106.  
  107.             end
  108.  
  109.             'PONG SLOT=0'
  110.         end
  111.  
  112.     end
  113.  
  114. end
  115.  
  116. /* ---------------------------- END OF YOUR CODE --------------------- */
  117.  
  118. 'UNLOCK' /* VERY important: unlock GUI */
  119.  
  120. exit
  121.  
  122. SYNTAX:
  123.  
  124. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  125.  
  126. 'UNLOCK'
  127.  
  128. exit
  129.